home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Tele / P / ParmSet.cpt / ParmSet Source / ParmSet.src < prev    next >
Text File  |  1991-02-17  |  1KB  |  57 lines
  1. (Parameter Show/Set Utility for White Knight)
  2. (By Greg Hartwig, GEnie: GREG.HARTWIG, CompuServe: 70525,722, 10/89)
  3. QUIET
  4.  
  5. (Dialogs:
  6. (   1000  -- Ask for parameter to show/change
  7. (   1001  -- Show value as a string (currently not used)
  8. (   1002  -- Show value as a number
  9.  
  10.  
  11. (Set up dialog defaults)
  12.  
  13. (Default Parameter)
  14. ERASE A$
  15.  
  16. (-----------------------------------------------)
  17.  
  18.  
  19. (Run the dialog)
  20. SCREEN OFF
  21. :GETPNUM
  22. (Ask for the parameter to show/change)
  23. SHELL A9%,1000
  24. (Button clicked on is in A9%)
  25.  
  26. (If the Cancel button was clicked (item #2), exit)
  27. TEST A9% = 2
  28. IF YES SCREEN ON
  29. IF YES END
  30.  
  31.  
  32. ("OK" button was clicked)
  33. (Get value of the parameter requested)
  34. STRINGTONUM A$,P%
  35. GETPARAM P%,V%
  36.  
  37.  
  38. (Set up to show the next window)
  39. NUMTOSTRING V%,B$
  40.  
  41.  
  42. :SHOWNUM
  43. (Show the parameter as a number)
  44. SHELL A9%,1002
  45. (Button clicked on is in A9%)
  46.  
  47. (If the Cancel button was clicked (item #2), go back to 1st window)
  48. TEST A9% = 2
  49. IF YES JUMPTO GETPNUM
  50.  
  51.  
  52. (Store new value back)
  53. STRINGTONUM B$,V2%
  54. PUTPARAM P%,V2%
  55.  
  56. (Do it all again)
  57. JUMPTO GETPNUM